home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 May: Tool Chest / Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso / Tool Chest / Interfaces & Libraries / Interfaces / AIncludes / Picker.a < prev    next >
Encoding:
Text File  |  1993-11-30  |  2.3 KB  |  114 lines  |  [TEXT/MPS ]
  1. ;    File:        Picker.a
  2. ;
  3. ;    Copyright:    © 1983-1993 by Apple Computer, Inc.
  4. ;                All rights reserved.
  5. ;
  6. ;    Version:    System 7.1 for ETO #11
  7. ;    Created:    Tuesday, March 30, 1993 18:00
  8. ;
  9. ;___________________________________________________________________________
  10.  
  11.     IF &TYPE('__INCLUDINGPICKER__') = 'UNDEFINED' THEN
  12. __INCLUDINGPICKER__    SET    1
  13.  
  14. MaxSmallFract     EQU         $0000FFFF                 ; Maximum small fract value, as LONGINT
  15.  
  16. ; For developmental simplicity in switching between the HLS and HSV
  17. ; models, HLS is reordered into HSL. Thus both models start with
  18. ; hue and saturation values; value/lightness/brightness is last.
  19.  
  20. HSVColor          RECORD      0
  21. hue               DS.W        1                         ; Fraction of circle, red at 0
  22. saturation        DS.W        1                         ; 0-1, 0 for gray, 1 for pure color
  23. value             DS.W        1                         ; 0-1, 0 for black, 1 for max intensity
  24.                   ENDR
  25.  
  26. HSLColor          RECORD      0
  27. hue               DS.W        1                         ; Fraction of circle, red at 0
  28. saturation        DS.W        1                         ; 0-1, 0 for gray, 1 for pure color
  29. lightness         DS.W        1                         ; 0-1, 0 for black, 1 for white
  30.                   ENDR
  31.  
  32.  
  33.  
  34.  
  35.  
  36. CMYColor          RECORD      0
  37. cyan              DS.W        1
  38. magenta           DS.W        1
  39. yellow            DS.W        1
  40.                   ENDR
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47. ; Selectors for color picker macros:
  48.  
  49. fix2SmallFract    EQU         1
  50. smallFract2Fix    EQU         2
  51. cmy2RGB           EQU         3
  52. rgb2CMY           EQU         4
  53. hsl2RGB           EQU         5
  54. rgb2HSL           EQU         6
  55. hsv2RGB           EQU         7
  56. rgb2HSV           EQU         8
  57. getColor          EQU         9
  58.  
  59.  
  60.                   MACRO
  61.                   _Fix2SmallFract
  62.                   MOVE.W      #fix2SmallFract,-(SP)
  63.                   DC.W        $A82E                     ; _Pack12
  64.                   ENDM
  65.  
  66.                   MACRO
  67.                   _SmallFract2Fix
  68.                   MOVE.W      #smallFract2Fix,-(SP)
  69.                   DC.W        $A82E                     ; _Pack12
  70.                   ENDM
  71.  
  72.                   MACRO
  73.                   _CMY2RGB
  74.                   MOVE.W      #cmy2RGB,-(SP)
  75.                   DC.W        $A82E                     ; _Pack12
  76.                   ENDM
  77.  
  78.                   MACRO
  79.                   _RGB2CMY
  80.                   MOVE.W      #rgb2CMY,-(SP)
  81.                   DC.W        $A82E                     ; _Pack12
  82.                   ENDM
  83.  
  84.                   MACRO
  85.                   _HSL2RGB
  86.                   MOVE.W      #hsl2RGB,-(SP)
  87.                   DC.W        $A82E                     ; _Pack12
  88.                   ENDM
  89.  
  90.                   MACRO
  91.                   _RGB2HSL
  92.                   MOVE.W      #rgb2HSL,-(SP)
  93.                   DC.W        $A82E                     ; _Pack12
  94.                   ENDM
  95.  
  96.                   MACRO
  97.                   _HSV2RGB
  98.                   MOVE.W      #hsv2RGB,-(SP)
  99.                   DC.W        $A82E                     ; _Pack12
  100.                   ENDM
  101.  
  102.                   MACRO
  103.                   _RGB2HSV
  104.                   MOVE.W      #rgb2HSV,-(SP)
  105.                   DC.W        $A82E                     ; _Pack12
  106.                   ENDM
  107.  
  108.                   MACRO
  109.                   _GetColor
  110.                   MOVE.W      #getColor,-(SP)
  111.                   DC.W        $A82E                     ; _Pack12
  112.                   ENDM
  113.  
  114.     ENDIF    ; ...already included